home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / SecalDemo / Inc / libcalls / dos.inc < prev    next >
Encoding:
Text File  |  1997-06-11  |  23.5 KB  |  1,099 lines
  1. pattern Open(_name,_accessMode) is
  2.     push d2\a6;
  3.     safe d1.l:=_name; d2.l:=_accessMode;;
  4.     a6:=DOSBase; jsr [a6-30];
  5.     pop d2\a6;
  6. endp;                                                            # OPEN
  7.  
  8. pattern Close(_file) is
  9.     push a6;
  10.     d1.l:=_file;
  11.     a6:=DOSBase; jsr [a6-36];
  12.     pop a6;
  13. endp;                                                            # CLOSE
  14.  
  15. pattern Read(_file,_buffer,_length) is
  16.     push d2\d3\a6;
  17.     safe d1.l:=_file; d2.l:=_buffer; d3.l:=_length;;
  18.     a6:=DOSBase; jsr [a6-42];
  19.     pop d2\d3\a6;
  20. endp;                                                            # READ
  21.  
  22. pattern Write(_file,_buffer,_length) is
  23.     push d2\d3\a6;
  24.     safe d1.l:=_file; d2.l:=_buffer; d3.l:=_length;;
  25.     a6:=DOSBase; jsr [a6-48];
  26.     pop d2\d3\a6;
  27. endp;                                                            # WRITE
  28.  
  29. pattern Input is
  30.     push a6;
  31.     a6:=DOSBase; jsr [a6-54];
  32.     pop a6;
  33. endp;                                                            # INPUT
  34.  
  35. pattern Output is
  36.     push a6;
  37.     a6:=DOSBase; jsr [a6-60];
  38.     pop a6;
  39. endp;                                                            # OUTPUT
  40.  
  41. pattern Seek(_file,_position,_offset) is
  42.     push d2\d3\a6;
  43.     safe d1.l:=_file; d2.l:=_position; d3.l:=_offset;;
  44.     a6:=DOSBase; jsr [a6-66];
  45.     pop d2\d3\a6;
  46. endp;                                                            # SEEK
  47.  
  48. pattern DeleteFile(_name) is
  49.     push a6;
  50.     d1.l:=_name;
  51.     a6:=DOSBase; jsr [a6-72];
  52.     pop a6;
  53. endp;                                                            # DELETEFILE
  54.  
  55. pattern Rename(_oldName,_newName) is
  56.     push d2\a6;
  57.     safe d1.l:=_oldName; d2.l:=_newName;;
  58.     a6:=DOSBase; jsr [a6-78];
  59.     pop d2\a6;
  60. endp;                                                            # RENAME
  61.  
  62. pattern Lock(_name,_type) is
  63.     push d2\a6;
  64.     safe d1.l:=_name; d2.l:=_type;;
  65.     a6:=DOSBase; jsr [a6-84];
  66.     pop d2\a6;
  67. endp;                                                            # LOCK
  68.  
  69. pattern UnLock(_lock) is
  70.     push a6;
  71.     d1.l:=_lock;
  72.     a6:=DOSBase; jsr [a6-90];
  73.     pop a6;
  74. endp;                                                            # UNLOCK
  75.  
  76. pattern DupLock(_lock) is
  77.     push a6;
  78.     d1.l:=_lock;
  79.     a6:=DOSBase; jsr [a6-96];
  80.     pop a6;
  81. endp;                                                            # DUPLOCK
  82.  
  83. pattern Examine(_lock,_fileInfoBlock) is
  84.     push d2\a6;
  85.     safe d1.l:=_lock; d2.l:=_fileInfoBlock;;
  86.     a6:=DOSBase; jsr [a6-102];
  87.     pop d2\a6;
  88. endp;                                                            # EXAMINE
  89.  
  90. pattern ExNext(_lock,_fileInfoBlock) is
  91.     push d2\a6;
  92.     safe d1.l:=_lock; d2.l:=_fileInfoBlock;;
  93.     a6:=DOSBase; jsr [a6-108];
  94.     pop d2\a6;
  95. endp;                                                            # EXNEXT
  96.  
  97. pattern Info(_lock,_parameterBlock) is
  98.     push d2\a6;
  99.     safe d1.l:=_lock; d2.l:=_parameterBlock;;
  100.     a6:=DOSBase; jsr [a6-114];
  101.     pop d2\a6;
  102. endp;                                                            # INFO
  103.  
  104. pattern CreateDir(_name) is
  105.     push a6;
  106.     d1.l:=_name;
  107.     a6:=DOSBase; jsr [a6-120];
  108.     pop a6;
  109. endp;                                                            # CREATEDIR
  110.  
  111. pattern CurrentDir(_lock) is
  112.     push a6;
  113.     d1.l:=_lock;
  114.     a6:=DOSBase; jsr [a6-126];
  115.     pop a6;
  116. endp;                                                            # CURRENTDIR
  117.  
  118. pattern IoErr is
  119.     push a6;
  120.     a6:=DOSBase; jsr [a6-132];
  121.     pop a6;
  122. endp;                                                            # IOERR
  123.  
  124. pattern CreateProc(_name,_pri,_segList,_stackSize) is
  125.     push d2\d3\d4\a6;
  126.     safe d1.l:=_name; d2.l:=_pri; d3.l:=_segList; d4.l:=_stackSize;;
  127.     a6:=DOSBase; jsr [a6-138];
  128.     pop d2\d3\d4\a6;
  129. endp;                                                            # CREATEPROC
  130.  
  131. pattern Exit(_returnCode) is
  132.     push a6;
  133.     d1.l:=_returnCode;
  134.     a6:=DOSBase; jsr [a6-144];
  135.     pop a6;
  136. endp;                                                            # EXIT
  137.  
  138. pattern LoadSeg(_name) is
  139.     push a6;
  140.     d1.l:=_name;
  141.     a6:=DOSBase; jsr [a6-150];
  142.     pop a6;
  143. endp;                                                            # LOADSEG
  144.  
  145. pattern UnLoadSeg(_seglist) is
  146.     push a6;
  147.     d1.l:=_seglist;
  148.     a6:=DOSBase; jsr [a6-156];
  149.     pop a6;
  150. endp;                                                            # UNLOADSEG
  151.  
  152. pattern dosPrivate1 is
  153.     push a6;
  154.     a6:=DOSBase; jsr [a6-162];
  155.     pop a6;
  156. endp;                                                            # DOSPRIVATE1
  157.  
  158. pattern dosPrivate2 is
  159.     push a6;
  160.     a6:=DOSBase; jsr [a6-168];
  161.     pop a6;
  162. endp;                                                            # DOSPRIVATE2
  163.  
  164. pattern DeviceProc(_name) is
  165.     push a6;
  166.     d1.l:=_name;
  167.     a6:=DOSBase; jsr [a6-174];
  168.     pop a6;
  169. endp;                                                            # DEVICEPROC
  170.  
  171. pattern SetComment(_name,_comment) is
  172.     push d2\a6;
  173.     safe d1.l:=_name; d2.l:=_comment;;
  174.     a6:=DOSBase; jsr [a6-180];
  175.     pop d2\a6;
  176. endp;                                                            # SETCOMMENT
  177.  
  178. pattern SetProtection(_name,_protect) is
  179.     push d2\a6;
  180.     safe d1.l:=_name; d2.l:=_protect;;
  181.     a6:=DOSBase; jsr [a6-186];
  182.     pop d2\a6;
  183. endp;                                                            # SETPROTECTION
  184.  
  185. pattern dosDateStamp(_date) is
  186.     push a6;
  187.     d1.l:=_date;
  188.     a6:=DOSBase; jsr [a6-192];
  189.     pop a6;
  190. endp;                                                            # DOSDATESTAMP
  191.  
  192. pattern Delay(_timeout) is
  193.     push a6;
  194.     d1.l:=_timeout;
  195.     a6:=DOSBase; jsr [a6-198];
  196.     pop a6;
  197. endp;                                                            # DELAY
  198.  
  199. pattern WaitForChar(_file,_timeout) is
  200.     push d2\a6;
  201.     safe d1.l:=_file; d2.l:=_timeout;;
  202.     a6:=DOSBase; jsr [a6-204];
  203.     pop d2\a6;
  204. endp;                                                            # WAITFORCHAR
  205.  
  206. pattern ParentDir(_lock) is
  207.     push a6;
  208.     d1.l:=_lock;
  209.     a6:=DOSBase; jsr [a6-210];
  210.     pop a6;
  211. endp;                                                            # PARENTDIR
  212.  
  213. pattern IsInteractive(_file) is
  214.     push a6;
  215.     d1.l:=_file;
  216.     a6:=DOSBase; jsr [a6-216];
  217.     pop a6;
  218. endp;                                                            # ISINTERACTIVE
  219.  
  220. pattern Execute(_string,_file,_file2) is
  221.     push d2\d3\a6;
  222.     safe d1.l:=_string; d2.l:=_file; d3.l:=_file2;;
  223.     a6:=DOSBase; jsr [a6-222];
  224.     pop d2\d3\a6;
  225. endp;                                                            # EXECUTE
  226.  
  227. pattern AllocDosObject(_type,_tags) is
  228.     push d2\a6;
  229.     safe d1.l:=_type; d2.l:=_tags;;
  230.     a6:=DOSBase; jsr [a6-228];
  231.     pop d2\a6;
  232. endp;                                                            # ALLOCDOSOBJECT
  233.  
  234. pattern FreeDosObject(_type,_ptr) is
  235.     push d2\a6;
  236.     safe d1.l:=_type; d2.l:=_ptr;;
  237.     a6:=DOSBase; jsr [a6-234];
  238.     pop d2\a6;
  239. endp;                                                            # FREEDOSOBJECT
  240.  
  241. pattern DoPkt(_port,_action,_arg1,_arg2,_arg3,_arg4,_arg5) is
  242.     push d2\d3\d4\d5\d6\d7\a6;
  243.     safe d1.l:=_port; d2.l:=_action; d3.l:=_arg1; d4.l:=_arg2; d5.l:=_arg3; d6.l:=_arg4; d7.l:=_arg5;;
  244.     a6:=DOSBase; jsr [a6-240];
  245.     pop d2\d3\d4\d5\d6\d7\a6;
  246. endp;                                                            # DOPKT
  247.  
  248. pattern SendPkt(_dp,_port,_replyport) is
  249.     push d2\d3\a6;
  250.     safe d1.l:=_dp; d2.l:=_port; d3.l:=_replyport;;
  251.     a6:=DOSBase; jsr [a6-246];
  252.     pop d2\d3\a6;
  253. endp;                                                            # SENDPKT
  254.  
  255. pattern WaitPkt is
  256.     push a6;
  257.     a6:=DOSBase; jsr [a6-252];
  258.     pop a6;
  259. endp;                                                            # WAITPKT
  260.  
  261. pattern ReplyPkt(_dp,_res1,_res2) is
  262.     push d2\d3\a6;
  263.     safe d1.l:=_dp; d2.l:=_res1; d3.l:=_res2;;
  264.     a6:=DOSBase; jsr [a6-258];
  265.     pop d2\d3\a6;
  266. endp;                                                            # REPLYPKT
  267.  
  268. pattern AbortPkt(_port,_pkt) is
  269.     push d2\a6;
  270.     safe d1.l:=_port; d2.l:=_pkt;;
  271.     a6:=DOSBase; jsr [a6-264];
  272.     pop d2\a6;
  273. endp;                                                            # ABORTPKT
  274.  
  275. pattern LockRecord(_fh,_offset,_length,_mode,_timeout) is
  276.     push d2\d3\d4\d5\a6;
  277.     safe d1.l:=_fh; d2.l:=_offset; d3.l:=_length; d4.l:=_mode; d5.l:=_timeout;;
  278.     a6:=DOSBase; jsr [a6-270];
  279.     pop d2\d3\d4\d5\a6;
  280. endp;                                                            # LOCKRECORD
  281.  
  282. pattern LockRecords(_recArray,_timeout) is
  283.     push d2\a6;
  284.     safe d1.l:=_recArray; d2.l:=_timeout;;
  285.     a6:=DOSBase; jsr [a6-276];
  286.     pop d2\a6;
  287. endp;                                                            # LOCKRECORDS
  288.  
  289. pattern UnLockRecord(_fh,_offset,_length) is
  290.     push d2\d3\a6;
  291.     safe d1.l:=_fh; d2.l:=_offset; d3.l:=_length;;
  292.     a6:=DOSBase; jsr [a6-282];
  293.     pop d2\d3\a6;
  294. endp;                                                            # UNLOCKRECORD
  295.  
  296. pattern UnLockRecords(_recArray) is
  297.     push a6;
  298.     d1.l:=_recArray;
  299.     a6:=DOSBase; jsr [a6-288];
  300.     pop a6;
  301. endp;                                                            # UNLOCKRECORDS
  302.  
  303. pattern SelectInput(_fh) is
  304.     push a6;
  305.     d1.l:=_fh;
  306.     a6:=DOSBase; jsr [a6-294];
  307.     pop a6;
  308. endp;                                                            # SELECTINPUT
  309.  
  310. pattern SelectOutput(_fh) is
  311.     push a6;
  312.     d1.l:=_fh;
  313.     a6:=DOSBase; jsr [a6-300];
  314.     pop a6;
  315. endp;                                                            # SELECTOUTPUT
  316.  
  317. pattern FGetC(_fh) is
  318.     push a6;
  319.     d1.l:=_fh;
  320.     a6:=DOSBase; jsr [a6-306];
  321.     pop a6;
  322. endp;                                                            # FGETC
  323.  
  324. pattern FPutC(_fh,_ch) is
  325.     push d2\a6;
  326.     safe d1.l:=_fh; d2.l:=_ch;;
  327.     a6:=DOSBase; jsr [a6-312];
  328.     pop d2\a6;
  329. endp;                                                            # FPUTC
  330.  
  331. pattern UnGetC(_fh,_character) is
  332.     push d2\a6;
  333.     safe d1.l:=_fh; d2.l:=_character;;
  334.     a6:=DOSBase; jsr [a6-318];
  335.     pop d2\a6;
  336. endp;                                                            # UNGETC
  337.  
  338. pattern FRead(_fh,_block,_blocklen,_number) is
  339.     push d2\d3\d4\a6;
  340.     safe d1.l:=_fh; d2.l:=_block; d3.l:=_blocklen; d4.l:=_number;;
  341.     a6:=DOSBase; jsr [a6-324];
  342.     pop d2\d3\d4\a6;
  343. endp;                                                            # FREAD
  344.  
  345. pattern FWrite(_fh,_block,_blocklen,_number) is
  346.     push d2\d3\d4\a6;
  347.     safe d1.l:=_fh; d2.l:=_block; d3.l:=_blocklen; d4.l:=_number;;
  348.     a6:=DOSBase; jsr [a6-330];
  349.     pop d2\d3\d4\a6;
  350. endp;                                                            # FWRITE
  351.  
  352. pattern FGets(_fh,_buf,_buflen) is
  353.     push d2\d3\a6;
  354.     safe d1.l:=_fh; d2.l:=_buf; d3.l:=_buflen;;
  355.     a6:=DOSBase; jsr [a6-336];
  356.     pop d2\d3\a6;
  357. endp;                                                            # FGETS
  358.  
  359. pattern FPuts(_fh,_str) is
  360.     push d2\a6;
  361.     safe d1.l:=_fh; d2.l:=_str;;
  362.     a6:=DOSBase; jsr [a6-342];
  363.     pop d2\a6;
  364. endp;                                                            # FPUTS
  365.  
  366. pattern VFWritef(_fh,_format,_argarray) is
  367.     push d2\d3\a6;
  368.     safe d1.l:=_fh; d2.l:=_format; d3.l:=_argarray;;
  369.     a6:=DOSBase; jsr [a6-348];
  370.     pop d2\d3\a6;
  371. endp;                                                            # VFWRITEF
  372.  
  373. pattern VFPrintf(_fh,_format,_argarray) is
  374.     push d2\d3\a6;
  375.     safe d1.l:=_fh; d2.l:=_format; d3.l:=_argarray;;
  376.     a6:=DOSBase; jsr [a6-354];
  377.     pop d2\d3\a6;
  378. endp;                                                            # VFPRINTF
  379.  
  380. pattern Flush(_fh) is
  381.     push a6;
  382.     d1.l:=_fh;
  383.     a6:=DOSBase; jsr [a6-360];
  384.     pop a6;
  385. endp;                                                            # FLUSH
  386.  
  387. pattern SetVBuf(_fh,_buff,_type,_size) is
  388.     push d2\d3\d4\a6;
  389.     safe d1.l:=_fh; d2.l:=_buff; d3.l:=_type; d4.l:=_size;;
  390.     a6:=DOSBase; jsr [a6-366];
  391.     pop d2\d3\d4\a6;
  392. endp;                                                            # SETVBUF
  393.  
  394. pattern DupLockFromFH(_fh) is
  395.     push a6;
  396.     d1.l:=_fh;
  397.     a6:=DOSBase; jsr [a6-372];
  398.     pop a6;
  399. endp;                                                            # DUPLOCKFROMFH
  400.  
  401. pattern OpenFromLock(_lock) is
  402.     push a6;
  403.     d1.l:=_lock;
  404.     a6:=DOSBase; jsr [a6-378];
  405.     pop a6;
  406. endp;                                                            # OPENFROMLOCK
  407.  
  408. pattern ParentOfFH(_fh) is
  409.     push a6;
  410.     d1.l:=_fh;
  411.     a6:=DOSBase; jsr [a6-384];
  412.     pop a6;
  413. endp;                                                            # PARENTOFFH
  414.  
  415. pattern ExamineFH(_fh,_fib) is
  416.     push d2\a6;
  417.     safe d1.l:=_fh; d2.l:=_fib;;
  418.     a6:=DOSBase; jsr [a6-390];
  419.     pop d2\a6;
  420. endp;                                                            # EXAMINEFH
  421.  
  422. pattern SetFileDate(_name,_date) is
  423.     push d2\a6;
  424.     safe d1.l:=_name; d2.l:=_date;;
  425.     a6:=DOSBase; jsr [a6-396];
  426.     pop d2\a6;
  427. endp;                                                            # SETFILEDATE
  428.  
  429. pattern NameFromLock(_lock,_buffer,_len) is
  430.     push d2\d3\a6;
  431.     safe d1.l:=_lock; d2.l:=_buffer; d3.l:=_len;;
  432.     a6:=DOSBase; jsr [a6-402];
  433.     pop d2\d3\a6;
  434. endp;                                                            # NAMEFROMLOCK
  435.  
  436. pattern NameFromFH(_fh,_buffer,_len) is
  437.     push d2\d3\a6;
  438.     safe d1.l:=_fh; d2.l:=_buffer; d3.l:=_len;;
  439.     a6:=DOSBase; jsr [a6-408];
  440.     pop d2\d3\a6;
  441. endp;                                                            # NAMEFROMFH
  442.  
  443. pattern SplitName(_name,_seperator,_buf,_oldpos,_size) is
  444.     push d2\d3\d4\d5\a6;
  445.     safe d1.l:=_name; d2.l:=_seperator; d3.l:=_buf; d4.l:=_oldpos; d5.l:=_size;;
  446.     a6:=DOSBase; jsr [a6-414];
  447.     pop d2\d3\d4\d5\a6;
  448. endp;                                                            # SPLITNAME
  449.  
  450. pattern SameLock(_lock1,_lock2) is
  451.     push d2\a6;
  452.     safe d1.l:=_lock1; d2.l:=_lock2;;
  453.     a6:=DOSBase; jsr [a6-420];
  454.     pop d2\a6;
  455. endp;                                                            # SAMELOCK
  456.  
  457. pattern SetMode(_fh,_mode) is
  458.     push d2\a6;
  459.     safe d1.l:=_fh; d2.l:=_mode;;
  460.     a6:=DOSBase; jsr [a6-426];
  461.     pop d2\a6;
  462. endp;                                                            # SETMODE
  463.  
  464. pattern ExAll(_lock,_buffer,_size,_data,_control) is
  465.     push d2\d3\d4\d5\a6;
  466.     safe d1.l:=_lock; d2.l:=_buffer; d3.l:=_size; d4.l:=_data; d5.l:=_control;;
  467.     a6:=DOSBase; jsr [a6-432];
  468.     pop d2\d3\d4\d5\a6;
  469. endp;                                                            # EXALL
  470.  
  471. pattern ReadLink(_port,_lock,_path,_buffer,_size) is
  472.     push d2\d3\d4\d5\a6;
  473.     safe d1.l:=_port; d2.l:=_lock; d3.l:=_path; d4.l:=_buffer; d5.l:=_size;;
  474.     a6:=DOSBase; jsr [a6-438];
  475.     pop d2\d3\d4\d5\a6;
  476. endp;                                                            # READLINK
  477.  
  478. pattern MakeLink(_name,_dest,_soft) is
  479.     push d2\d3\a6;
  480.     safe d1.l:=_name; d2.l:=_dest; d3.l:=_soft;;
  481.     a6:=DOSBase; jsr [a6-444];
  482.     pop d2\d3\a6;
  483. endp;                                                            # MAKELINK
  484.  
  485. pattern ChangeMode(_type,_fh,_newmode) is
  486.     push d2\d3\a6;
  487.     safe d1.l:=_type; d2.l:=_fh; d3.l:=_newmode;;
  488.     a6:=DOSBase; jsr [a6-450];
  489.     pop d2\d3\a6;
  490. endp;                                                            # CHANGEMODE
  491.  
  492. pattern SetFileSize(_fh,_pos,_mode) is
  493.     push d2\d3\a6;
  494.     safe d1.l:=_fh; d2.l:=_pos; d3.l:=_mode;;
  495.     a6:=DOSBase; jsr [a6-456];
  496.     pop d2\d3\a6;
  497. endp;                                                            # SETFILESIZE
  498.  
  499. pattern SetIoErr(_result) is
  500.     push a6;
  501.     d1.l:=_result;
  502.     a6:=DOSBase; jsr [a6-462];
  503.     pop a6;
  504. endp;                                                            # SETIOERR
  505.  
  506. pattern Fault(_code,_header,_buffer,_len) is
  507.     push d2\d3\d4\a6;
  508.     safe d1.l:=_code; d2.l:=_header; d3.l:=_buffer; d4.l:=_len;;
  509.     a6:=DOSBase; jsr [a6-468];
  510.     pop d2\d3\d4\a6;
  511. endp;                                                            # FAULT
  512.  
  513. pattern PrintFault(_code,_header) is
  514.     push d2\a6;
  515.     safe d1.l:=_code; d2.l:=_header;;
  516.     a6:=DOSBase; jsr [a6-474];
  517.     pop d2\a6;
  518. endp;                                                            # PRINTFAULT
  519.  
  520. pattern ErrorReport(_code,_type,_arg1,_device) is
  521.     push d2\d3\d4\a6;
  522.     safe d1.l:=_code; d2.l:=_type; d3.l:=_arg1; d4.l:=_device;;
  523.     a6:=DOSBase; jsr [a6-480];
  524.     pop d2\d3\d4\a6;
  525. endp;                                                            # ERRORREPORT
  526.  
  527. pattern Cli is
  528.     push a6;
  529.     a6:=DOSBase; jsr [a6-492];
  530.     pop a6;
  531. endp;                                                            # CLI
  532.  
  533. pattern CreateNewProc(_tags) is
  534.     push a6;
  535.     d1.l:=_tags;
  536.     a6:=DOSBase; jsr [a6-498];
  537.     pop a6;
  538. endp;                                                            # CREATENEWPROC
  539.  
  540. pattern RunCommand(_seg,_stack,_paramptr,_paramlen) is
  541.     push d2\d3\d4\a6;
  542.     safe d1.l:=_seg; d2.l:=_stack; d3.l:=_paramptr; d4.l:=_paramlen;;
  543.     a6:=DOSBase; jsr [a6-504];
  544.     pop d2\d3\d4\a6;
  545. endp;                                                            # RUNCOMMAND
  546.  
  547. pattern GetConsoleTask is
  548.     push a6;
  549.     a6:=DOSBase; jsr [a6-510];
  550.     pop a6;
  551. endp;                                                            # GETCONSOLETASK
  552.  
  553. pattern SetConsoleTask(_task) is
  554.     push a6;
  555.     d1.l:=_task;
  556.     a6:=DOSBase; jsr [a6-516];
  557.     pop a6;
  558. endp;                                                            # SETCONSOLETASK
  559.  
  560. pattern GetFileSysTask is
  561.     push a6;
  562.     a6:=DOSBase; jsr [a6-522];
  563.     pop a6;
  564. endp;                                                            # GETFILESYSTASK
  565.  
  566. pattern SetFileSysTask(_task) is
  567.     push a6;
  568.     d1.l:=_task;
  569.     a6:=DOSBase; jsr [a6-528];
  570.     pop a6;
  571. endp;                                                            # SETFILESYSTASK
  572.  
  573. pattern GetArgStr is
  574.     push a6;
  575.     a6:=DOSBase; jsr [a6-534];
  576.     pop a6;
  577. endp;                                                            # GETARGSTR
  578.  
  579. pattern SetArgStr(_string) is
  580.     push a6;
  581.     d1.l:=_string;
  582.     a6:=DOSBase; jsr [a6-540];
  583.     pop a6;
  584. endp;                                                            # SETARGSTR
  585.  
  586. pattern FindCliProc(_num) is
  587.     push a6;
  588.     d1.l:=_num;
  589.     a6:=DOSBase; jsr [a6-546];
  590.     pop a6;
  591. endp;                                                            # FINDCLIPROC
  592.  
  593. pattern MaxCli is
  594.     push a6;
  595.     a6:=DOSBase; jsr [a6-552];
  596.     pop a6;
  597. endp;                                                            # MAXCLI
  598.  
  599. pattern SetCurrentDirName(_name) is
  600.     push a6;
  601.     d1.l:=_name;
  602.     a6:=DOSBase; jsr [a6-558];
  603.     pop a6;
  604. endp;                                                            # SETCURRENTDIRNAME
  605.  
  606. pattern GetCurrentDirName(_buf,_len) is
  607.     push d2\a6;
  608.     safe d1.l:=_buf; d2.l:=_len;;
  609.     a6:=DOSBase; jsr [a6-564];
  610.     pop d2\a6;
  611. endp;                                                            # GETCURRENTDIRNAME
  612.  
  613. pattern SetProgramName(_name) is
  614.     push a6;
  615.     d1.l:=_name;
  616.     a6:=DOSBase; jsr [a6-570];
  617.     pop a6;
  618. endp;                                                            # SETPROGRAMNAME
  619.  
  620. pattern GetProgramName(_buf,_len) is
  621.     push d2\a6;
  622.     safe d1.l:=_buf; d2.l:=_len;;
  623.     a6:=DOSBase; jsr [a6-576];
  624.     pop d2\a6;
  625. endp;                                                            # GETPROGRAMNAME
  626.  
  627. pattern SetPrompt(_name) is
  628.     push a6;
  629.     d1.l:=_name;
  630.     a6:=DOSBase; jsr [a6-582];
  631.     pop a6;
  632. endp;                                                            # SETPROMPT
  633.  
  634. pattern GetPrompt(_buf,_len) is
  635.     push d2\a6;
  636.     safe d1.l:=_buf; d2.l:=_len;;
  637.     a6:=DOSBase; jsr [a6-588];
  638.     pop d2\a6;
  639. endp;                                                            # GETPROMPT
  640.  
  641. pattern SetProgramDir(_lock) is
  642.     push a6;
  643.     d1.l:=_lock;
  644.     a6:=DOSBase; jsr [a6-594];
  645.     pop a6;
  646. endp;                                                            # SETPROGRAMDIR
  647.  
  648. pattern GetProgramDir is
  649.     push a6;
  650.     a6:=DOSBase; jsr [a6-600];
  651.     pop a6;
  652. endp;                                                            # GETPROGRAMDIR
  653.  
  654. pattern SystemTagList(_command,_tags) is
  655.     push d2\a6;
  656.     safe d1.l:=_command; d2.l:=_tags;;
  657.     a6:=DOSBase; jsr [a6-606];
  658.     pop d2\a6;
  659. endp;                                                            # SYSTEMTAGLIST
  660.  
  661. pattern AssignLock(_name,_lock) is
  662.     push d2\a6;
  663.     safe d1.l:=_name; d2.l:=_lock;;
  664.     a6:=DOSBase; jsr [a6-612];
  665.     pop d2\a6;
  666. endp;                                                            # ASSIGNLOCK
  667.  
  668. pattern AssignLate(_name,_path) is
  669.     push d2\a6;
  670.     safe d1.l:=_name; d2.l:=_path;;
  671.     a6:=DOSBase; jsr [a6-618];
  672.     pop d2\a6;
  673. endp;                                                            # ASSIGNLATE
  674.  
  675. pattern AssignPath(_name,_path) is
  676.     push d2\a6;
  677.     safe d1.l:=_name; d2.l:=_path;;
  678.     a6:=DOSBase; jsr [a6-624];
  679.     pop d2\a6;
  680. endp;                                                            # ASSIGNPATH
  681.  
  682. pattern AssignAdd(_name,_lock) is
  683.     push d2\a6;
  684.     safe d1.l:=_name; d2.l:=_lock;;
  685.     a6:=DOSBase; jsr [a6-630];
  686.     pop d2\a6;
  687. endp;                                                            # ASSIGNADD
  688.  
  689. pattern RemAssignList(_name,_lock) is
  690.     push d2\a6;
  691.     safe d1.l:=_name; d2.l:=_lock;;
  692.     a6:=DOSBase; jsr [a6-636];
  693.     pop d2\a6;
  694. endp;                                                            # REMASSIGNLIST
  695.  
  696. pattern GetDeviceProc(_name,_dp) is
  697.     push d2\a6;
  698.     safe d1.l:=_name; d2.l:=_dp;;
  699.     a6:=DOSBase; jsr [a6-642];
  700.     pop d2\a6;
  701. endp;                                                            # GETDEVICEPROC
  702.  
  703. pattern FreeDeviceProc(_dp) is
  704.     push a6;
  705.     d1.l:=_dp;
  706.     a6:=DOSBase; jsr [a6-648];
  707.     pop a6;
  708. endp;                                                            # FREEDEVICEPROC
  709.  
  710. pattern LockDosList(_flags) is
  711.     push a6;
  712.     d1.l:=_flags;
  713.     a6:=DOSBase; jsr [a6-654];
  714.     pop a6;
  715. endp;                                                            # LOCKDOSLIST
  716.  
  717. pattern UnLockDosList(_flags) is
  718.     push a6;
  719.     d1.l:=_flags;
  720.     a6:=DOSBase; jsr [a6-660];
  721.     pop a6;
  722. endp;                                                            # UNLOCKDOSLIST
  723.  
  724. pattern AttemptLockDosList(_flags) is
  725.     push a6;
  726.     d1.l:=_flags;
  727.     a6:=DOSBase; jsr [a6-666];
  728.     pop a6;
  729. endp;                                                            # ATTEMPTLOCKDOSLIST
  730.  
  731. pattern RemDosEntry(_dlist) is
  732.     push a6;
  733.     d1.l:=_dlist;
  734.     a6:=DOSBase; jsr [a6-672];
  735.     pop a6;
  736. endp;                                                            # REMDOSENTRY
  737.  
  738. pattern AddDosEntry(_dlist) is
  739.     push a6;
  740.     d1.l:=_dlist;
  741.     a6:=DOSBase; jsr [a6-678];
  742.     pop a6;
  743. endp;                                                            # ADDDOSENTRY
  744.  
  745. pattern FindDosEntry(_dlist,_name,_flags) is
  746.     push d2\d3\a6;
  747.     safe d1.l:=_dlist; d2.l:=_name; d3.l:=_flags;;
  748.     a6:=DOSBase; jsr [a6-684];
  749.     pop d2\d3\a6;
  750. endp;                                                            # FINDDOSENTRY
  751.  
  752. pattern NextDosEntry(_dlist,_flags) is
  753.     push d2\a6;
  754.     safe d1.l:=_dlist; d2.l:=_flags;;
  755.     a6:=DOSBase; jsr [a6-690];
  756.     pop d2\a6;
  757. endp;                                                            # NEXTDOSENTRY
  758.  
  759. pattern MakeDosEntry(_name,_type) is
  760.     push d2\a6;
  761.     safe d1.l:=_name; d2.l:=_type;;
  762.     a6:=DOSBase; jsr [a6-696];
  763.     pop d2\a6;
  764. endp;                                                            # MAKEDOSENTRY
  765.  
  766. pattern FreeDosEntry(_dlist) is
  767.     push a6;
  768.     d1.l:=_dlist;
  769.     a6:=DOSBase; jsr [a6-702];
  770.     pop a6;
  771. endp;                                                            # FREEDOSENTRY
  772.  
  773. pattern IsFileSystem(_name) is
  774.     push a6;
  775.     d1.l:=_name;
  776.     a6:=DOSBase; jsr [a6-708];
  777.     pop a6;
  778. endp;                                                            # ISFILESYSTEM
  779.  
  780. pattern Format(_filesystem,_volumename,_dostype) is
  781.     push d2\d3\a6;
  782.     safe d1.l:=_filesystem; d2.l:=_volumename; d3.l:=_dostype;;
  783.     a6:=DOSBase; jsr [a6-714];
  784.     pop d2\d3\a6;
  785. endp;                                                            # FORMAT
  786.  
  787. pattern Relabel(_drive,_newname) is
  788.     push d2\a6;
  789.     safe d1.l:=_drive; d2.l:=_newname;;
  790.     a6:=DOSBase; jsr [a6-720];
  791.     pop d2\a6;
  792. endp;                                                            # RELABEL
  793.  
  794. pattern Inhibit(_name,_onoff) is
  795.     push d2\a6;
  796.     safe d1.l:=_name; d2.l:=_onoff;;
  797.     a6:=DOSBase; jsr [a6-726];
  798.     pop d2\a6;
  799. endp;                                                            # INHIBIT
  800.  
  801. pattern AddBuffers(_name,_number) is
  802.     push d2\a6;
  803.     safe d1.l:=_name; d2.l:=_number;;
  804.     a6:=DOSBase; jsr [a6-732];
  805.     pop d2\a6;
  806. endp;                                                            # ADDBUFFERS
  807.  
  808. pattern CompareDates(_date1,_date2) is
  809.     push d2\a6;
  810.     safe d1.l:=_date1; d2.l:=_date2;;
  811.     a6:=DOSBase; jsr [a6-738];
  812.     pop d2\a6;
  813. endp;                                                            # COMPAREDATES
  814.  
  815. pattern DateToStr(_datetime) is
  816.     push a6;
  817.     d1.l:=_datetime;
  818.     a6:=DOSBase; jsr [a6-744];
  819.     pop a6;
  820. endp;                                                            # DATETOSTR
  821.  
  822. pattern StrToDate(_datetime) is
  823.     push a6;
  824.     d1.l:=_datetime;
  825.     a6:=DOSBase; jsr [a6-750];
  826.     pop a6;
  827. endp;                                                            # STRTODATE
  828.  
  829. pattern InternalLoadSeg(_fh,_table,_funcarray,_stack) is
  830.     push a2\a6;
  831.     safe d0.l:=_fh; a0:=_table; a1:=_funcarray; a2:=_stack;;
  832.     a6:=DOSBase; jsr [a6-756];
  833.     pop a2\a6;
  834. endp;                                                            # INTERNALLOADSEG
  835.  
  836. pattern InternalUnLoadSeg(_seglist,_freefunc) is
  837.     push a6;
  838.     safe d1.l:=_seglist; a1:=_freefunc;;
  839.     a6:=DOSBase; jsr [a6-762];
  840.     pop a6;
  841. endp;                                                            # INTERNALUNLOADSEG
  842.  
  843. pattern NewLoadSeg(_file,_tags) is
  844.     push d2\a6;
  845.     safe d1.l:=_file; d2.l:=_tags;;
  846.     a6:=DOSBase; jsr [a6-768];
  847.     pop d2\a6;
  848. endp;                                                            # NEWLOADSEG
  849.  
  850. pattern AddSegment(_name,_seg,_system) is
  851.     push d2\d3\a6;
  852.     safe d1.l:=_name; d2.l:=_seg; d3.l:=_system;;
  853.     a6:=DOSBase; jsr [a6-774];
  854.     pop d2\d3\a6;
  855. endp;                                                            # ADDSEGMENT
  856.  
  857. pattern FindSegment(_name,_seg,_system) is
  858.     push d2\d3\a6;
  859.     safe d1.l:=_name; d2.l:=_seg; d3.l:=_system;;
  860.     a6:=DOSBase; jsr [a6-780];
  861.     pop d2\d3\a6;
  862. endp;                                                            # FINDSEGMENT
  863.  
  864. pattern RemSegment(_seg) is
  865.     push a6;
  866.     d1.l:=_seg;
  867.     a6:=DOSBase; jsr [a6-786];
  868.     pop a6;
  869. endp;                                                            # REMSEGMENT
  870.  
  871. pattern CheckSignal(_mask) is
  872.     push a6;
  873.     d1.l:=_mask;
  874.     a6:=DOSBase; jsr [a6-792];
  875.     pop a6;
  876. endp;                                                            # CHECKSIGNAL
  877.  
  878. pattern ReadArgs(_arg_template,_array,_args) is
  879.     push d2\d3\a6;
  880.     safe d1.l:=_arg_template; d2.l:=_array; d3.l:=_args;;
  881.     a6:=DOSBase; jsr [a6-798];
  882.     pop d2\d3\a6;
  883. endp;                                                            # READARGS
  884.  
  885. pattern FindArg(_keyword,_arg_template) is
  886.     push d2\a6;
  887.     safe d1.l:=_keyword; d2.l:=_arg_template;;
  888.     a6:=DOSBase; jsr [a6-804];
  889.     pop d2\a6;
  890. endp;                                                            # FINDARG
  891.  
  892. pattern ReadItem(_name,_maxchars,_cSource) is
  893.     push d2\d3\a6;
  894.     safe d1.l:=_name; d2.l:=_maxchars; d3.l:=_cSource;;
  895.     a6:=DOSBase; jsr [a6-810];
  896.     pop d2\d3\a6;
  897. endp;                                                            # READITEM
  898.  
  899. pattern StrToLong(_string,_value) is
  900.     push d2\a6;
  901.     safe d1.l:=_string; d2.l:=_value;;
  902.     a6:=DOSBase; jsr [a6-816];
  903.     pop d2\a6;
  904. endp;                                                            # STRTOLONG
  905.  
  906. pattern MatchFirst(_pat,_anchor) is
  907.     push d2\a6;
  908.     safe d1.l:=_pat; d2.l:=_anchor;;
  909.     a6:=DOSBase; jsr [a6-822];
  910.     pop d2\a6;
  911. endp;                                                            # MATCHFIRST
  912.  
  913. pattern MatchNext(_anchor) is
  914.     push a6;
  915.     d1.l:=_anchor;
  916.     a6:=DOSBase; jsr [a6-828];
  917.     pop a6;
  918. endp;                                                            # MATCHNEXT
  919.  
  920. pattern MatchEnd(_anchor) is
  921.     push a6;
  922.     d1.l:=_anchor;
  923.     a6:=DOSBase; jsr [a6-834];
  924.     pop a6;
  925. endp;                                                            # MATCHEND
  926.  
  927. pattern ParsePattern(_pat,_buf,_buflen) is
  928.     push d2\d3\a6;
  929.     safe d1.l:=_pat; d2.l:=_buf; d3.l:=_buflen;;
  930.     a6:=DOSBase; jsr [a6-840];
  931.     pop d2\d3\a6;
  932. endp;                                                            # PARSEPATTERN
  933.  
  934. pattern MatchPattern(_pat,_str) is
  935.     push d2\a6;
  936.     safe d1.l:=_pat; d2.l:=_str;;
  937.     a6:=DOSBase; jsr [a6-846];
  938.     pop d2\a6;
  939. endp;                                                            # MATCHPATTERN
  940.  
  941. pattern dosPrivate3 is
  942.     push a6;
  943.     a6:=DOSBase; jsr [a6-852];
  944.     pop a6;
  945. endp;                                                            # DOSPRIVATE3
  946.  
  947. pattern FreeArgs(_args) is
  948.     push a6;
  949.     d1.l:=_args;
  950.     a6:=DOSBase; jsr [a6-858];
  951.     pop a6;
  952. endp;                                                            # FREEARGS
  953.  
  954. pattern FilePart(_path) is
  955.     push a6;
  956.     d1.l:=_path;
  957.     a6:=DOSBase; jsr [a6-870];
  958.     pop a6;
  959. endp;                                                            # FILEPART
  960.  
  961. pattern PathPart(_path) is
  962.     push a6;
  963.     d1.l:=_path;
  964.     a6:=DOSBase; jsr [a6-876];
  965.     pop a6;
  966. endp;                                                            # PATHPART
  967.  
  968. pattern AddPart(_dirname,_filename,_size) is
  969.     push d2\d3\a6;
  970.     safe d1.l:=_dirname; d2.l:=_filename; d3.l:=_size;;
  971.     a6:=DOSBase; jsr [a6-882];
  972.     pop d2\d3\a6;
  973. endp;                                                            # ADDPART
  974.  
  975. pattern StartNotify(_notify) is
  976.     push a6;
  977.     d1.l:=_notify;
  978.     a6:=DOSBase; jsr [a6-888];
  979.     pop a6;
  980. endp;                                                            # STARTNOTIFY
  981.  
  982. pattern EndNotify(_notify) is
  983.     push a6;
  984.     d1.l:=_notify;
  985.     a6:=DOSBase; jsr [a6-894];
  986.     pop a6;
  987. endp;                                                            # ENDNOTIFY
  988.  
  989. pattern SetVar(_name,_buffer,_size,_flags) is
  990.     push d2\d3\d4\a6;
  991.     safe d1.l:=_name; d2.l:=_buffer; d3.l:=_size; d4.l:=_flags;;
  992.     a6:=DOSBase; jsr [a6-900];
  993.     pop d2\d3\d4\a6;
  994. endp;                                                            # SETVAR
  995.  
  996. pattern GetVar(_name,_buffer,_size,_flags) is
  997.     push d2\d3\d4\a6;
  998.     safe d1.l:=_name; d2.l:=_buffer; d3.l:=_size; d4.l:=_flags;;
  999.     a6:=DOSBase; jsr [a6-906];
  1000.     pop d2\d3\d4\a6;
  1001. endp;                                                            # GETVAR
  1002.  
  1003. pattern DeleteVar(_name,_flags) is
  1004.     push d2\a6;
  1005.     safe d1.l:=_name; d2.l:=_flags;;
  1006.     a6:=DOSBase; jsr [a6-912];
  1007.     pop d2\a6;
  1008. endp;                                                            # DELETEVAR
  1009.  
  1010. pattern FindVar(_name,_type) is
  1011.     push d2\a6;
  1012.     safe d1.l:=_name; d2.l:=_type;;
  1013.     a6:=DOSBase; jsr [a6-918];
  1014.     pop d2\a6;
  1015. endp;                                                            # FINDVAR
  1016.  
  1017. pattern dosPrivate4 is
  1018.     push a6;
  1019.     a6:=DOSBase; jsr [a6-924];
  1020.     pop a6;
  1021. endp;                                                            # DOSPRIVATE4
  1022.  
  1023. pattern CliInitNewcli(_dp) is
  1024.     push a6;
  1025.     a0:=_dp;
  1026.     a6:=DOSBase; jsr [a6-930];
  1027.     pop a6;
  1028. endp;                                                            # CLIINITNEWCLI
  1029.  
  1030. pattern CliInitRun(_dp) is
  1031.     push a6;
  1032.     a0:=_dp;
  1033.     a6:=DOSBase; jsr [a6-936];
  1034.     pop a6;
  1035. endp;                                                            # CLIINITRUN
  1036.  
  1037. pattern WriteChars(_buf,_buflen) is
  1038.     push d2\a6;
  1039.     safe d1.l:=_buf; d2.l:=_buflen;;
  1040.     a6:=DOSBase; jsr [a6-942];
  1041.     pop d2\a6;
  1042. endp;                                                            # WRITECHARS
  1043.  
  1044. pattern PutStr(_str) is
  1045.     push a6;
  1046.     d1.l:=_str;
  1047.     a6:=DOSBase; jsr [a6-948];
  1048.     pop a6;
  1049. endp;                                                            # PUTSTR
  1050.  
  1051. pattern VPrintf(_format,_argarray) is
  1052.     push d2\a6;
  1053.     safe d1.l:=_format; d2.l:=_argarray;;
  1054.     a6:=DOSBase; jsr [a6-954];
  1055.     pop d2\a6;
  1056. endp;                                                            # VPRINTF
  1057.  
  1058. pattern ParsePatternNoCase(_pat,_buf,_buflen) is
  1059.     push d2\d3\a6;
  1060.     safe d1.l:=_pat; d2.l:=_buf; d3.l:=_buflen;;
  1061.     a6:=DOSBase; jsr [a6-966];
  1062.     pop d2\d3\a6;
  1063. endp;                                                            # PARSEPATTERNNOCASE
  1064.  
  1065. pattern MatchPatternNoCase(_pat,_str) is
  1066.     push d2\a6;
  1067.     safe d1.l:=_pat; d2.l:=_str;;
  1068.     a6:=DOSBase; jsr [a6-972];
  1069.     pop d2\a6;
  1070. endp;                                                            # MATCHPATTERNNOCASE
  1071.  
  1072. pattern dosPrivate5 is
  1073.     push a6;
  1074.     a6:=DOSBase; jsr [a6-978];
  1075.     pop a6;
  1076. endp;                                                            # DOSPRIVATE5
  1077.  
  1078. pattern SameDevice(_lock1,_lock2) is
  1079.     push d2\a6;
  1080.     safe d1.l:=_lock1; d2.l:=_lock2;;
  1081.     a6:=DOSBase; jsr [a6-984];
  1082.     pop d2\a6;
  1083. endp;                                                            # SAMEDEVICE
  1084.  
  1085. pattern ExAllEnd(_lock,_buffer,_size,_data,_control) is
  1086.     push d2\d3\d4\d5\a6;
  1087.     safe d1.l:=_lock; d2.l:=_buffer; d3.l:=_size; d4.l:=_data; d5.l:=_control;;
  1088.     a6:=DOSBase; jsr [a6-990];
  1089.     pop d2\d3\d4\d5\a6;
  1090. endp;                                                            # EXALLEND
  1091.  
  1092. pattern SetOwner(_name,_owner_info) is
  1093.     push d2\a6;
  1094.     safe d1.l:=_name; d2.l:=_owner_info;;
  1095.     a6:=DOSBase; jsr [a6-996];
  1096.     pop d2\a6;
  1097. endp;                                                            # SETOWNER
  1098.  
  1099.